home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / COMMODOR / STKTRACK.ARC / STOCK TRACKER (.txt)
Commodore BASIC  |  2000-06-30  |  3KB  |  127 lines
  1. 5 REM * PROGRAM BY RICKIE SCOTT
  2. 6 REM * SAVE A REVISED COPY FIRST TIME THROUGH
  3. 10 POKE53281,0:POKE53280,0:PRINT"[158]"
  4. 20 DIM A$(30),B$(30,11),D$(11):F=0
  5. 30 FORI=1TO25
  6. 40 READ A$(I),B$(I,0)
  7. 50 NEXTI
  8. 60 OPEN15,8,15,"I0"
  9. 70 OPEN2,8,2,"0:STOCK FILE,S,R"
  10. 75 PRINT"[147]DATA SET UP IN PROGRESS":PRINT"    PLEASE WAIT!!"
  11. 80 INPUT#15,E,E$,E1$,E2$
  12. 90 IF E=62 THEN CLOSE2:GOTO 331
  13. 100 FORJ=1TO25
  14. 110 FORI=1TO10
  15. 120 INPUT#2,B$(J,I)
  16. 130 NEXT I:NEXTJ
  17. 135 CLOSE2
  18. 140 PRINT"[147]                                       "
  19. 142 PRINT"                 MENU                  "
  20. 145 PRINT"                                       "
  21. 150 PRINT"     1. REVIEW 4 WEEKS BACK"
  22. 160 PRINT"     2. REVIEW ALL WEEKS
  23. 170 [153]"     3. ADD NEW QUOTES"
  24. 180 [153]"     4. SAMPLE RUN ON A $1000"
  25. 182 [153]"     5. CHANGE A PRICE"
  26. 190 [153]"     6. QUIT"
  27. 195 [153]"        CHOICE"
  28. 200 CH$[178]"":[133] CH$
  29. 210 [145][197](CH$)[137] 350,500,250,700,1100,245
  30. 220 [137]140
  31. 245 [153]"LOADD0 YOU WANT TO SAVE A REVISED COPY (Y/N)"
  32. 246 [161]A$:[139]A$[178]""[167]246
  33. 247 [139]A$[178]"Y"[167]332
  34. 248 [160]15:[160]2:[153]"LOAD THE END":[128]
  35. 250 [143] * ADD QUOTES
  36. 260 [153]"LOAD"
  37. 270 [129]I[178]1[164]25
  38. 275 [153] A$(I),B$(I,0)
  39. 280 [129]J[178]10[164]1[169][171]1
  40. 290 B$(I,J[170]1)[178]B$(I,J)
  41. 300 [130]J
  42. 310 [133] B$(I,1)
  43. 320 [130] I
  44. 330 [137]1100
  45. 331 [143] * SAVE NEW FILE
  46. 332 [159] 2,8,2,"@0:STOCK FILE,S,W"
  47. 333 [153]"SAVING NEW STOCK FILE"
  48. 334 [129]J[178]1[164]25
  49. 336 [129]L[178]1[164]10
  50. 338 [139]B$(J,L)[178]""[167]B$(J,L)[178]"\"
  51. 340 [152]2,B$(J,L)
  52. 342 [130]L:[130]J
  53. 344 [160]2:F[178]1
  54. 346 [137] 140
  55. 350 [143] * REVEIW 4 WEEKS
  56. 360 [129]I[178]1[164]25
  57. 365 [153] A$(I),B$(I,0)
  58. 370 [129]J[178]1[164]4
  59. 380 [153] B$(I,J),
  60. 400 [130]J:[153]
  61. 410 K[178]K[170]1:[139]K[177]5[167]K[178]0
  62. 415 [139]K[179]5[167]460
  63. 420 [153]"HIT F1 KEY TO RETURN TO MENU"
  64. 425 [153]"HIT ANY KEY TO CONTINUE"
  65. 430 [161] A$:[139]A$[178]""[167]430
  66. 435 [139]A$[178]"INPUT"[167]140
  67. 437 [139]F[178]1[167]470
  68. 440 [139] B$(I,0)[178]"END"[167] F[178]1:[137]430
  69. 460 [130] I
  70. 470 F[178]0:[129]T[178]1[164]1000:[161]A$:[139]A$[178]""[167][130]T
  71. 480 [137]140
  72. 500 [143] * REVIEW ALL WEEKS
  73. 510 [129]I[178]1[164]25
  74. 520 [153]A$(I),B$(I,0)
  75. 525 [129]J[178]1[164]10
  76. 530 [153]B$(I,J),
  77. 540 [130]J:[153]
  78. 550 K[178]K[170]1:[139]K[177]3[167]K[178]0:[137]570
  79. 560 [161]A$:[139]A$[178]""[167]560
  80. 570 [130] I
  81. 600 [137]140
  82. 700 [143] * SAMPLE PROFIT OR LOSS FOR 2 WEEKS
  83. 710 [153]"LOAD"
  84. 720 [153]"THIS WILL SHOW THE POSSIBLE PROFIT OR "
  85. 730 [153]"LOSS ON A STOCK PURCHASED ANY OF THE"
  86. 740 [153]"WEEKS ON RECORD.":S$[178]""
  87. 750 [153]"ENTER STOCK SYMBOL (? FOR LIST)":[133] S$
  88. 760 [139] S$[178]"?"[167][129]I[178]1[164]25:[153] A$(I),B$(I,0):[130]I:[137]750
  89. 770 [129]J[178]1[164]25:[139]S$[178]B$(J,0)[167]Z[178]J
  90. 775 [130]J
  91. 780 [139]Z[178]0[167]140
  92. 785 [153] A$(Z),B$(Z,0)
  93. 790 [129]J[178]1[164]10:[153]B$(Z,J),:[130] J:[153]
  94. 800 [133]"BUY WEEK";X
  95. 810 [133]"SELL WEEK";Y
  96. 820 B[178][197](B$(Z,X)):S[178][197](B$(Z,Y)):[139]B[178]0[167]B[178]1
  97. 830 BW[178](1000[173]B)
  98. 840 SW[178][181]((BW[172]S[171]1000)[172]100)[173]100:[153]"POSSIBLE PROFIT OR LOSS ON $1000"
  99. 845 [153] "IS $"SW
  100. 850 [153]""
  101. 900 [153]"HIT F1 TO RETURN TO MENU"
  102. 905 [161]A$:[139]A$[178]""[167]905
  103. 910 [139]A$[178]"INPUT"[167]140
  104. 920 [137]700
  105. 1000 [131] COMMODORE,CCT,V F CORP,VFC,VOLT INFO SCIENCE,VOLT
  106. 1010 [131] ZENITH RADIO CORP.,ZE,WESTERN STATES LIFE,WSTS,LINEAR CORP.,LINE
  107. 1020 [131] BUSCH,BUD,U.S. AIR,U,XEROX CORP.,XRX,LIN BROADCASTING,LINB
  108. 1030 [131] PAN AMERICAN AIRWAYS,PN,U.S. STEEL CORP.,X
  109. 1040 [131] PABST BREWWING CO.,PABT,PACIFIC GAS & ELE.,PCG
  110. 1050 [131] INTERNATIONAL TEL & TELAGRAPH,ITT,MOBIL CORP.,MBOT
  111. 1060 [131] HBO CORP.,HBOC,GULF OIL CORP.,GO,LILY (ELI) & CO.,LLY
  112. 1070 [131] AMERICAN TELEPHONE & TELEGRAPH,T,EXXON,XON,LIMITED STORES,LIMT
  113. 1080 [131] INTERNATIONAL BUSINES MACHINES,IBM,GOLD,GOLD,SILVER,SILVER,END,END
  114. 1100 [143] * CHANGE A PRICE
  115. 1110 [153]"LOADDO YOU NEED TO MAKE ANY CHANGES (Y/N)."
  116. 1120 [161]A$:[139]A$[178]""[167]1120
  117. 1130 [139]A$[178]"Y"[167]1150
  118. 1140 [137]140
  119. 1150 [153]"INPUT STOCK TO CHANGE"
  120. 1160 [133] CS$
  121. 1170 [129]I[178]1[164]26:[139]CS$[178]B$(I,0)[167]Z[178]I:[137]1200
  122. 1180 [130] I
  123. 1190 [153]"INVALID CHOICE":[129]T[178]1[164]900:[130]T:[137]140
  124. 1200 [153]""B$(Z,0),B$(Z,1)
  125. 1210 [133]"NEW PRICE";B$(Z,1)
  126. 1220 [137]140
  127.